Find age from date of birth.

=====================

Public Function Age(ByVal DoB As Date) As Byte
      Dim Birthday As Date
      Birthday = DateSerial(Year(Now()), Month(DoB), Day(DoB))
      Age = Year(Now()) - Year(DoB)
      If Birthday > Now() Then Age = Age - 1
      End Function